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0014F0 3 C3801 START 5360 001504 4624 1770 425 MVA  CIDCB,R6 ADDR CARRIAGE RET IDCB 
Uy He he eae aye ae He Ke fe he eK he he ah 3 he ee fe ake ie fe ac of ic ake fe af 2 ake he ake ofc aie fe af af 2 sic ae he he eae ae ae ae he oe oe he ea fe fe 2 ee ok oe eo eo 001508 6FO03 16B8 126 BAL TTYIO, R7 GO ISSUE I/o AND CHECK COND CD 
5 x x 00150c 6802 1628 127 B TT60 GO TO SCHEDULER-WALT FOR INTRPT 
6 x se fe oe PREREQUISITES ste oe of 12.9 IORI I GI IGG SC BOR RIO RI IOI I IO IR a IR RR aE a ake ak a ale ake ic ake fe ak ake ae ake aka fe ake a 
7 * M 130 * 
9 * TTY ATTACHED * 131 * THE FOLLOWING ROUTINE HANDLES INTERRUPTS FROM THE TTY * 
9 x LEVEL 4 PROCESSOR * 132 * * 
10 * * VB RH Re He Ke fe 2 he fe He He he he he He She ie he ae he he 2h fe 2c ai a 2 oe 3 he he oc 2k 2 a 2 Sc a ae ae 2c he hc ie 2c aie ie he te he ee ate ke ace ake fe oh ak he te ae 
11 PSP PSPS SSS LSS SELL SL PLS SS SSE SL SES ELS SSS SES SESS SSS SSL SL SS SSS SS SSS SS SS 5 ESE! 001510 134 TTO00 zou b 4 
12 * * 001510 6301 135 DIS SM DISABLE INTERUPTS 
13 * $k 2K MODIFICATIONS 40k * 001512 6B05 162C 136 BNCC THREE,TT70 BR/IF NOT DEV END INT 
14 * x 001516 ODO1 137 MVBI ONE,RS SET XR5S TO A CONSTANT OF 1 
15 * 1. REARRANGE OVERLAY FOR FUTURE EXPANSION. * 001518 C020 1795 138 MVB  ACI&S,RO IN KEYING IN MODE 
16 ‘ 2. MODIFY CODE TO HANDLE TTY BUSY. * 9015 1¢ 6801 1628 139 oe BNZ TT6O BR/YES 
1B HM ee He He he he Ke eK He he He fe He ae he he He fe 3h oe of he oe oe ae ee hee fe he ee a fe he 3c 3 3k he fee oe ef fe oe fe ote ic oe ok ok ok ee ok ok 001520 6908 179C 141 MVW PRISHW.R1 GET ADDR QUE BLOCK 
49 * * 001524 6808 17BC 142 NVW  RPSV,R3 GET DIAGNOSTIC PROGRAM DATA ADDR 
20 * kk REA'S INCORPORATED 1 x 001528 CD2F 17A0 143 SW R5_,ACHCT SEE IF PRINT BUFFER EMPTY 
21 * x 00152c 1144 144 IP 2 BR NOT 
22 * NONE * 00152E 124F 145 : ON TT30 BR/IF END 
DU Re He He ea ah ofe he ake he he oe fe fe he ah fe fe he ake ae cafe fe he ae ae fe of ae he af of ie he he 2K ae ke ae he ce ae oe fcc of ac oh ae ic hice oe ake he cc ake oe 2k ie ke ie oe ok 001530 0800 147 MVBI ZERO,.RO INITIALLY ZERO BUFFER 
25 * * 001532 OF42 148 MVBI SIXT6,R7 LENGTH OF BUFFER 
26 * 4k ok SPECIAL INSTRUCTIONS oo 2 * 001534 4424 1724 149 MVA  PRTBU,;RG ADDR PRINT BUFFER 
27 * * 001538 7444 150 MVW  RU,R2 PRINT BUFFER ADR - FOR LATER 
28 * NONE * 00153A 288C 151 FFN RO (Ra) ZERO OUT BUFFER 
29 x * 00153c 4020 1790 1722 152 MVA CRPRT,PRBA ADR OF C/R LINE FEED 
JQ a He He a he fe he He he fe he he he 3h he he he Be he ae he hehe ah ae he ee af ah Ie fe he fe fe oe af ai fe fe he ote he ae he he he ae oe hc he oo ee hee He hee a fe fe fe ee fe ek 001542 C025 1792 »453 MVBZ NLSW,R NEW LINE SW ON-IF SO TURN OFF 
31 * x 001546 101F 154 JZ TT20 BR/IF NOT 
32 x a 2 E. C. HISTORY Ere * 001548 C020 179B 155 MVB  GRPT1,R0 = TO FF 
33 * * 00154C 121C 156 JN TT20 BR/YES~DON'T PRINT HEADER 
34 * DATE O1JUL76 DATE O10CT76 DATE 22APR77 DATE O8AUG78 * OO0154E 4724 17AC 157 MVA HLTCV,R7 ADR OF CONTROL BLOCK 
35 * E.C. 578446 F.C. 578468 §E.C. 578751 £E.C. 755404 * 001552 601A 158 SVC HTOE GO CONVERT 
26 * * 001554 4724 17B2 159 NVA  HALCV,R7 ADR OF CONTROL BLOCK 
7 RR MH he oe ae He he he he he he fe ae fe he ae he fe fe oe ee ae he ate ae he ae hc he hee fe af ah he he ah 3c ote it af 2c fe He he ae He oh he he he i he ae 2 ate aie 3h le ac af af oe fe a oe 001558 601A 160 SVC HTOE GO CONVERT 
JQ HM ete eo ee ee he ee he he oe he he he 2 he fe he fe he eRe ie fe fe ee oe fe eae ae he ce fe ak fe fe oh he ke ake he he ae ae ale oe te ie ie a oe he alee ee ee ee OO0155A 8O0B4 17EA 161 MVB ACPRG* (R2) + MOVE IDENTIFIER 
40 * * 00155E OFO4 162 MVBI  FOUR,R? BYTES TO MOVE 
41 * SYSTEM EQUATES * 001560 4624 1800 163 MVA RE ADR OF I.D. 
42 x 001564 2544 164 MVFN (R6{, (R2) MOVE THE PROG NAME 
43 He fe ae ae he ae he He he ah af he afc fe ke he he he he he fe fe aie he fe ah af af oe he af af afc he ofc afc he fe afc af ae af oh afc fe ae oe ae ate he fe he ie ote ate abe ate fe ake afc ake ade akc aie fe afk ic fe ake he aie 001566 OF14 165 MVBI WE ¢ R7 LENGTH OF RTN AND CK P®T MSG 
44 SM EQOU. SUMMARY MASK DISABLE OR 001568 4624 17D0 166 MVA  MSG8,RK6 ADDR MESSAGE 
45 x ENABLE CODE 00156C 2E44 167 MVEN R6) (R2 MOVE MESSAGE INTO PRINT BUFFER 
UG Fe eae oe ae he he fe ae He Be 3H hee he ae he he he fe ae he he he hee he ae 2 3c fe ee fe he he he She he ee he ee he he he ae oe ae ee fe ah fe he ale ois fe ofc he fe ae ic fe afc ac fe ae 2 001568 8O0A4 1722 168 MVB RP fh d® ) + PUT IN CARRIAGE RETURN 
47 * * 001572 C685 169 MV BZ AF 2) R END OF MESSAGE CHARACTER 
48 * EQUATED NAMES FOR SUPPORTED SVC'S x 001574 O81A 170 MVBI TWEN6,RO ADD LENGTH OF MESSAGE 
49 * x 001576 680D 17A6 171 MVW 3=6oRO,INGT1 NUM OF BYTES TO CONVERT 
50 MH Hee He he he he fe he 3h ake he he he ae he he hc he af fe ade 3h ake ah of fe af she ae af af he fe he ake he afe af fe ae of ahe oe af she fe he fe afe oe ake he ate fe te oe ate afe he ae ofeach ke ote ote ake ake ok ok OO1S7A u724 17A6 172 MVA INGT1,R7 CONTROL BLOCK ADR 
000000 51 ouT EQU. 0 OUT svc 00157E 601D 173 SVC ETOA GO CONVERT 
OOO01A 52 HTOE EQU 26 HEX TO EBCDIC SVC (STRING) 001580 680D 17A0 174 MVH  RO,ACWCT SET LENGTH OF LINE TO PRINT 
00001D 53 ETOA BQU 29 EBCDIC TO ASCII SVC (STRING 001584 5018 175 J TT 52 GO DO LINE FEED 
OO001E 54 ATOR EBQU 30 ASCII TO EBCDIC SVC (STRING 001586 176 TT20 EQu %* 
5G He He ee he afc ah afe age oe at fe afc ae he af he af af ic he afc ae aie a fe ic ae hehe aie 3h 3h fe abe ah ofeach Se KK ae ec he he ac a ae ef he oe fe fe ai oe te ec ake ah af fc ac he ic he oe 3 001586 OFLO 177 MVBI SIXT4,R7 SET TO MOVE 64 BYTES 
57 x * 001588 4020 17A0 178 MVWI ONE92,ACWCT BYTE COUNT 
58 * EQUATES USED BY DCP * 00158E 77C4 179 MVW  R7,R6 SAVE MAX NOMBER BYTES TO MOVE 
59 * * 001590 0800 180 MVBI ZERO,RO END OF MESSAGE CH 
60 afc fe 9 fe ae fe 2 ai of 2h fe he of ah fe he he ae fe he oft ae ake af aie ae he af ae ae ah ae ie af af af af she af oft he afc ae fe fe fe ae ae ae he 3h ae oe oe oe He ie he he 3c it oe he ake ke he ok fe ole ate he 001592 286F 181 SFEN RO (83) COMPUTE LENGTH OF MESSAGE 
000006 61 STOP EQU 6 STOP AFTER MSG OUT 001594 1801 182 INE 775 BR/IF EOM CHARACTER NOT FOUND 
000007 62 ALTDV EOU 7 ALTERNATE OUTPUT DEV ASSIGNED 001596 756A 183 SH R5,R3 POINT TO EOM CHARACTER 
00000B 63 RTMDI FOU 11 MDI RETURN REQUEST 001598 184 TT21 FOU * 
00000D 65 EOT EQU x'OD? END OF MESSAGE CHAR (RETURN) 001598 77CA 185 SW R7,R6 GET LENGTH OF MESSAGE 
000011 66 TTBEL EOU X'11° ATTEN CHAR (X-O 00159A 1019 186 IZ TT 30 BR/IF DO 
00007F 67 DLETE EOU X'7F! DELETE CHAR (RUB UT) 00159C 766A 187 SW R6,R3 GED ADDR OF MESSAGE AGAIN 
000000 69 ZERO EQU O VALUE OF 0 00159E 76E4 188 MVW  R6,;R7 BYTES TO MOVE INTO BUFFER 
000001 70 ONE FOU 1 1 001540 6EOD 17A6 189 MVN  ROSINVT1 COUNT FOR CONVERT 
000003 71 THREE Bou 3 3 0015A4 4224 1724 190 MVA PREBU,R2 GET ADDR TTY BUFFER 
000004 72 FOUR EOU 4 4 001588 2B44 191 MVEN (R3) (R2) MOVE DATA INTO PRINT BUFFER 
000007 73 SEVEN FOU 7 7 OO15AA 4724 17A6 192 MVA uvT4 RI CONTROL BLOCK ADR 
000009 “4 NINE EQU 9 9 0015AE 601D 193 SVC —-ETOA GO CONVERT 
000014 75 TWENY EOU 20 20 0015B0 80A4 1722 194 MVB  CRPRT §R2) + PUT IN CARRIAGE RETURN 
OOO01A 76 TWEN6 EGU 26 26 0015B4 C085 195 MVBZ (R2) ,R END OF MESSAGE CHARACTER 
000040 77 SIXT4 EOU 64 64 0015B6 196 TT22 EOQU. * 
000042 78 STXT6 EGU 66 66 0015B6 C730 1790 197 MVB  PRBA*,R7 MOVE CHAR TO PRINT INTO R7 
0000C0 79 ONES2 EQU 192 192 0015BA 1009 198 JZ TT30 BR/IF EOM CHARACTER 
FFFFE2 81 M30 EOU  -30 -30 0015BC C728 176F 199 MVB  R7,WIDC3 MOVE CHARACTER INTO PRINT IDCB 
B 3 HH He Me ee fe fe 2h he ae ie OK ae he ae he 2h fe 2h te ah Ofek he ake oe 2 he fe ae ee fe ah afc le he afc ae ae he he ae 2h af he ah he ake ake ake he afc he ae ae ae fe oh oe eo oe oe ROABeR CD2E 1790 te 33 AW R5,PRBA UPDATE BUFFER ADDR 
84 * * C 01 TT FOU *¥ 
85 * EQUATES FOR CODED STOPS USED BY DCP * 0015C4 4624 176C 202 MVA WIDCB,R6 PRINT TDCB ADDR 
86 * (NORMAL AND ERROR) * 0015C8 6F03 16B8 203 BAL TTYIO,;R7 GO ISSUE I/O AND CHECK COND 
§7 * 0015CC 502D 304 J TT60 RETURN zo SCHEDULER 
BB HW ie He he he He he he He he he he Fs he he He he ae He he he He he he ec he ae he ie ae He fe fe ah 2 he hee He eae Ye he he he ee ie oi he te he fee fee He he oe ee ok 0015CE 205 TT30 EQU * 
89 ACNG FOU x'!3801! ALTERNATE CONSOLE ERROR 0015CE 882F 179E 206 CW ENTSW, ACSVP* SEE IF TO KEY IN DATA NEXT 
QM A ee MH he Me He eH He i He ee He He he ae ee he i fe ah 2h he he fe 2h fe of ae ake ae fe fe fe ea he 2 a fe ote kee ae ic fe he afc ae fe ie fe ofc fe fe ae 2k 2c ae ok ok 0015D4 101B 207 JE TT51 BR/IF YES 
92 * * 0015D6 812B 0016 208 CB (Ra QSVC) ,oUT1 SEE IF OUTIN SVC 
93 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE * 0015Dc 100C 209 JE 756 BR/YES- CONTINUE 
94 * START OF A QUE BLOCK OF THE VARIOUS INFORMATION. * 0015DE C825 179C 2410 MVWZ PRTSW,RO RE PRINT BUSY SWITCH 
95 * * 001582 4734 1782 211 MVA ACIND*,R7 Ree Ete DCP IND 
QE He Mee He oe Ke he he He he eH he He fe ake He He He Me he he hee fe He Ke ee he fe he 2h ae oe He Ke ae he ae he hc he 2c afc 2h cc ae he he he hc ae ht afc fe ie 2c fe ac ae ate ate fe ae oc ok 2 0015E6 UFO6 212 TBT AB STOP) IS STOP Pree ERR MSG ON 
97 OR7 EQU- 20 XR7 OF CALLING PROGRAM 0015E8 1004 313 JOFF ?TT46 BR/NO 
98 6SV¥VC EOU 22 SVC NUMBER OF CALLING PROGRAM O0O15EA 4724 179A 314 MVA  GRPT,R7 ADR FROM MSG INDICATORS 
100 PSS SSS LSS SEL PLS SSL LS SST SS SPS SESS SS SPE SE SL SS SLL SELL SST SS SSS ES FS Ft Rp eee a O015EE YFOS9 215 TB (RZ fINz) IS THIS AN ERR 
101 * 0015FO 121B 216 JON T66 BR/YES-WAIT FOR OPERATOR 
102 * THE FOLLOWING AREA CONTAINS THOSE CONSTANTS AND CODE " 0015F2 217 TTHO EQU * 
103 * REQUIRED BY THE ALTERNATE CONSOLE ROUTINE WHICH WILL * 0015F2 6812 1786 218 B ACSVR* RETURN 
104 * BE READ INTO STORAGE AS OVERLAYS. * 0015F6 219 TT50 EQU. * 
105 * * 0015F6 C325 1792 220 M¥BZ NLSW,R3 RESET NEW LINE SW 
106 33 OIRO RIO IO OG OIG IO CHOI ak i icdok ickok OOISFA C025 1795 221 MVBZ ACIMS, RO RESET KEYING IN MODE SWITCH 
NWHREECECLICLCOOLSOCT OT OCS OCS OT OTE C LSE LEST TSP P TE Per rere ret re et PPP Pr rr re ers | OO15FE 8838 1784 222 MVW ACSVP*, ENTSW SET SWITCH WITH QUE BLOCK ADDR 
108 * * 223 * TO SHOW TO KEY IN DATA AFTER 
109 * NAME TTY * 224 * THIS MESSAGE HAS BEEN PRINTED 
110 * * 001604 4020 1790 225 MVA ENTER,PRBA ADDR ENTER MSG PARA 
11] 2 PURPOSE THIS ROUTINE STARTS PRINTING ON THE TTY * 00160A 50D5 226 J TT22 GO PRINT MSG 
112 * WHAT IS PASSED * 00160C 227 TT51 EQU * 
113 * * 00160C C825 179E 228 MVWZ ENTSW,RO RESET ENTER SWITCH 
114 * THE BYTE IMMEDIATELY PRECEDING THE LABEL PASSED BY THE * 001610 C528 1794 229 NVB  R5,ACFCS SET 1ST CHAR SW 
115 * SVC IS CHECKED. IF IT IS NEGATIVE A HEADING WILL BE * 001614 C528 1795 230 MVB  R5-/ACIMS SET KEY IN MODE SW 
116 * PRINTED PRIOR TO PRINTING THE REQUESTED MESSAGE. * 001618 812B 0016 231 CB (Rh QSVC) ,OUT1 OUT/IN SVC 
117 * * 00161B 1804 232 INE T66 BR/NO 
118 PS PSP SSS S SSL ELSES EST SE SELES SETS SLE SSS ESSE TS SEES SSS SPST SES SS SESS SLES TS SS TSS SF 001620 u u 1782 233 MVA ACIND*,R AD OF DCP INDICATORS 
119 ALIGN WORD 001624 4FBB 234 TRTR 4B] RTADT) MDI IMMEDIATE RETURN 
014F0 120 TTY EOU 001626 1885 235 INZ T4U6 BR/YES 
014F0 690D 179C 121 MVW Rt PRISW SET PRINT BUSY 001628 236 TT60 EOD * 
O14F4 8028 1710 1792 122 MVB HEKO1 NLS T/ON NEW LINE SWITCH 001628 6812 1780 237 B ACSCH* RETURN TO SCHEDULER 
O14PFA 4020 1740 01 133 MVWI ONE AEN RESET COUNTER TO ONE 238 * 
01500 c025 179 124 MVBZ ACI Eas S,R RESET KEYING IN MODE SW 00162C 239 TT70 EQU- * 
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